home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #2 / Monster Media No. 2 (Monster Media)(1994).ISO / pcboard / cw_cj_40.zip / CONFJOIN.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1994-06-01  |  36KB  |  1,743 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 2.OO (plain) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Date     DATE001
  20.     Date     DATE002
  21.     Integer  INTEGER001
  22.     Integer  INTEGER002
  23.     Integer  INTEGER003
  24.     Integer  INTEGER004
  25.     Integer  INTEGER005
  26.     Integer  INTEGER006
  27.     Integer  INTEGER007
  28.     Integer  INTEGER008
  29.     Integer  INTEGER009
  30.     Integer  INTEGER010
  31.     Integer  INTEGER011
  32.     Integer  INTEGER012
  33.     Integer  INTEGER013
  34.     Integer  INTEGER014
  35.     Integer  INTEGER015
  36.     Integer  INTEGER016
  37.     Integer  INTEGER017
  38.     Integer  INTEGER018
  39.     Integer  INTEGER019
  40.     Integer  INTEGER020
  41.     Integer  INTEGER021
  42.     Integer  INTEGER022
  43.     Integer  INTEGER023
  44.     Integer  INTEGER024
  45.     Integer  INTEGER025
  46.     Integer  INTEGER026
  47.     Integer  INTEGER027
  48.     Integer  INTEGER028
  49.     Integer  INTEGER029
  50.     Integer  INTEGER030
  51.     Integer  INTEGER031
  52.     Integer  INTEGER032
  53.     Integer  INTEGER033
  54.     Integer  INTEGER034
  55.     Integer  INTEGER035
  56.     Integer  INTEGER036
  57.     Integer  INTEGER037
  58.     Integer  INTEGER038
  59.     Integer  INTEGER039
  60.     Integer  INTEGER040
  61.     Integer  INTEGER041
  62.     Integer  INTEGER042
  63.     Integer  INTEGER043
  64.     Integer  INTEGER044
  65.     Integer  INTEGER045
  66.     Integer  INTEGER046
  67.     Integer  INTEGER047
  68.     Integer  INTEGER048
  69.     Integer  INTEGER049
  70.     Integer  INTEGER050
  71.     Integer  INTEGER051
  72.     Integer  INTEGER052
  73.     Integer  INTEGER053
  74.     Integer  INTEGER054
  75.     Integer  INTEGER055
  76.     Integer  INTEGER056
  77.     Integer  INTEGER057
  78.     Integer  INTEGER058
  79.     Integer  INTEGER059
  80.     Integer  INTEGER060
  81.     Integer  INTEGER061
  82.     Integer  INTEGER062
  83.     Integer  INTEGER063
  84.     Integer  INTEGER064
  85.     Integer  INTEGER065
  86.     Integer  INTEGER066
  87.     Integer  INTEGER067
  88.     Integer  INTEGER068
  89.     Integer  INTEGER069
  90.     Integer  INTEGER070
  91.     Integer  INTEGER071
  92.     Integer  INTEGER072
  93.     Integer  INTEGER073
  94.     Integer  INTEGER074
  95.     Integer  INTEGER075
  96.     Integer  INTEGER076
  97.     Integer  INTEGER077
  98.     Integer  INTEGER078
  99.     Integer  INTEGER079
  100.     Integer  INTEGER080
  101.     Integer  INTEGER081
  102.     Integer  INTEGER082
  103.     Integer  INTEGER083
  104.     String   STRING001
  105.     String   STRING002
  106.     String   STRING003
  107.     String   STRING004
  108.     String   STRING005
  109.     String   STRING006
  110.     String   STRING007
  111.     String   STRING008
  112.     String   STRING009
  113.     String   STRING010
  114.     String   STRING011
  115.     String   STRING012
  116.     String   STRING013
  117.     String   STRING014
  118.     String   STRING015
  119.     String   STRING016
  120.     String   STRING017
  121.     String   STRING018
  122.     String   STRING019
  123.     String   STRING020
  124.     String   STRING021
  125.     String   STRING022
  126.     String   STRING023
  127.     String   STRING024
  128.     String   STRING025
  129.     String   STRING026
  130.     String   STRING027
  131.     String   STRING028
  132.     String   STRING029
  133.     String   STRING030
  134.     String   STRING031
  135.     String   STRING032
  136.     String   STRING033
  137.     String   STRING034
  138.     String   STRING035
  139.     String   STRING036
  140.     String   STRING037
  141.     String   STRING038
  142.     String   STRING039
  143.     String   STRING040
  144.     String   STRING041
  145.     String   STRING042
  146.     String   STRING043
  147.     String   STRING044
  148.     String   STRING045
  149.     String   STRING046
  150.     String   STRING047
  151.     String   STRING048
  152.     String   STRING049
  153.     String   STRING050
  154.     String   STRING051
  155.     String   STRING052
  156.     String   STRING053
  157.     String   STRING054
  158.     String   STRING055
  159.     String   STRING056
  160.     String   STRING057
  161.     String   STRING058
  162.     String   STRING059
  163.     String   STRING060
  164.     String   STRING061
  165.     String   STRING062
  166.     String   STRING063
  167.     String   STRING064
  168.     String   STRING065
  169.     String   STRING066
  170.     String   STRING067
  171.     String   STRING068
  172.     String   STRING069
  173.     String   STRING070
  174.     String   STRING071
  175.     String   STRING072
  176.     String   STRING073
  177.     String   STRING074
  178.     String   STRING075
  179.     String   STRING076
  180.     String   STRING077
  181.     String   STRING078
  182.     String   STRING079
  183.     String   STRING080
  184.     String   STRING081
  185.     String   STRING082
  186.     String   STRING083
  187.     String   STRING084
  188.     String   STRING085
  189.     String   STRING086
  190.     String   STRING087
  191.     String   STRING088
  192.     String   STRING089
  193.     String   STRING090
  194.     String   STRING091
  195.     String   STRING092
  196.     String   STRING093
  197.     String   STRING094
  198.     String   STRING095
  199.     String   STRING096
  200.     String   STRING097
  201.     String   STRING098
  202.     String   STRING099
  203.     String   STRING100
  204.     String   STRING101
  205.     String   STRING102
  206.     String   STRING103
  207.     String   STRING104
  208.     String   STRING105
  209.     String   STRING106
  210.     String   STRING107
  211.     String   STRING108
  212.     String   STRING109
  213.     String   STRING110
  214.     String   STRING111
  215.     String   STRING112
  216.     String   STRING113
  217.     String   STRING114
  218.     String   STRING115
  219.     String   STRING116
  220.     String   STRING117
  221.     String   STRING118
  222.     String   STRING119
  223.     String   STRING120
  224.     String   STRING121
  225.     String   STRING122
  226.     String   STRING123
  227.     String   STRING124
  228.     String   STRING125
  229.     String   STRING126
  230.     String   STRING127
  231.     String   STRING128
  232.     Time     TIME001
  233.     Time     TIME002
  234.  
  235. ;------------------------------------------------------------------------------
  236.  
  237.     STRING045 = TokenStr()
  238.     If (Strip(STRING045, Chr(32)) == "") Goto LABEL001
  239.     KbdStuff "J " + STRING045 + Chr(13)
  240.     End
  241.     :LABEL001
  242.     INTEGER078 = 36
  243.     STRING118 = PPEPath() + PPEName() + ".CNF"
  244.     STRING126 = 35110
  245.     STRING124 = "N"
  246.     STRING128 = "U" + "n" + "r" + "e" + "g" + "i" + "s" + "t" + "e" + "r" + "e" + "d"
  247.     If (PPEName() == "BBSLISTR") STRING125 = 48239
  248.     If (PPEName() == "BIRTHDAY") STRING125 = 58111
  249.     If (PPEName() == "CONFJOIN") STRING125 = 27233
  250.     If (PPEName() == "DOORMENU") STRING125 = 27233
  251.     If (PPEName() == "FILEMENU") STRING125 = 27233
  252.     If (PPEName() == "MAINMENU") STRING125 = 27233
  253.     If (PPEName() == "HOWHEARD") STRING125 = 18744
  254.     If (PPEName() == "NEWUSERS") STRING125 = 18744
  255.     If (PPEName() == "MSGQUEST") STRING125 = 10183
  256.     If (PPEName() == "PRO-VOTE") STRING125 = 30147
  257.     If (PPEName() == "REMINDME") STRING125 = 34515
  258.     If (PPEName() == "SPEEDLIM") STRING125 = 62956
  259.     If (PPEName() == "SUBSCRIP") STRING125 = 22239
  260.     If (PPEName() == "TIMEZONE") STRING125 = 38271
  261.     If (PPEName() == "USERNEWS") STRING125 = 51818
  262.     If (PPEName() == "WELCOMAT") STRING125 = 40621
  263.     If (Exist(STRING118)) Then
  264.         FOpen 1, STRING118, 0, 0
  265.         FGet 1, STRING113
  266.         FGet 1, INTEGER081
  267.         FGet 1, INTEGER080
  268.         FClose 1
  269.     Else
  270.         PrintLn "@X0CError - Config file not found - Please notify SysOp"
  271.         End
  272.     Endif
  273.     Tokenize STRING113
  274.     GetToken STRING122
  275.     GetToken STRING123
  276.     If ((INTEGER081 == 0) || (INTEGER080 == 79228)) Then
  277.         STRING124 = "N"
  278.         Goto LABEL005
  279.     Else
  280.         Goto LABEL002
  281.     Endif
  282.     :LABEL002
  283.     STRING127 = "N"
  284.     If (INTEGER080 == 52888) STRING127 = "Y"
  285.     If (INTEGER080 == 103750) STRING127 = "Y"
  286.     If (INTEGER080 == 77670) STRING127 = "Y"
  287.     If (INTEGER080 == 32139) STRING127 = "Y"
  288.     If (INTEGER080 == 40700) STRING127 = "Y"
  289.     If (INTEGER080 == 49190) STRING127 = "Y"
  290.     If (INTEGER080 == 50402) STRING127 = "Y"
  291.     If (INTEGER080 == 58961) STRING127 = "Y"
  292.     If (INTEGER080 == 67450) STRING127 = "Y"
  293.     If (INTEGER080 == 80838) STRING127 = "Y"
  294.     If (INTEGER080 == 103175) STRING127 = "Y"
  295.     If (INTEGER080 == 67270) STRING127 = "Y"
  296.     If (INTEGER080 == 55461) STRING127 = "Y"
  297.     If (INTEGER080 == 64023) STRING127 = "Y"
  298.     If (INTEGER080 == 72512) STRING127 = "Y"
  299.     If (INTEGER080 == 85900) STRING127 = "Y"
  300.     If (INTEGER080 == 63607) STRING127 = "Y"
  301.     If (INTEGER080 == 72098) STRING127 = "Y"
  302.     If (INTEGER080 == 80845) STRING127 = "Y"
  303.     If (INTEGER080 == 14372) STRING127 = "Y"
  304.     If (INTEGER080 == 22932) STRING127 = "Y"
  305.     If (INTEGER080 == 31421) STRING127 = "Y"
  306.     If (INTEGER080 == 44809) STRING127 = "Y"
  307.     If (INTEGER080 == 67145) STRING127 = "Y"
  308.     If (INTEGER080 == 67813) STRING127 = "Y"
  309.     If (STRING127 == "Y") STRING124 = "N"
  310.     If (STRING127 == "Y") Goto LABEL005
  311.     If ((INTEGER081 == 0) || (INTEGER080 == 79228)) Then
  312.         STRING124 = "N"
  313.         Goto LABEL005
  314.     Else
  315.         Goto LABEL003
  316.     Endif
  317.     :LABEL003
  318.     STRING119 = Left(STRING122, 1)
  319.     STRING120 = Left(STRING123, 2)
  320.     STRING121 = STRING119 + STRING120
  321.     If (STRING119 == "A") INTEGER082 = 1934
  322.     If (STRING119 == "B") INTEGER082 = 2859
  323.     If (STRING119 == "C") INTEGER082 = 3743
  324.     If (STRING119 == "D") INTEGER082 = 4660
  325.     If (STRING119 == "E") INTEGER082 = 5534
  326.     If (STRING119 == "F") INTEGER082 = 6471
  327.     If (STRING119 == "G") INTEGER082 = 7325
  328.     If (STRING119 == "H") INTEGER082 = 8287
  329.     If (STRING119 == "I") INTEGER082 = 9119
  330.     If (STRING119 == "J") INTEGER082 = 1096
  331.     If (STRING119 == "K") INTEGER082 = 2928
  332.     If (STRING119 == "L") INTEGER082 = 3885
  333.     If (STRING119 == "M") INTEGER082 = 4737
  334.     If (STRING119 == "N") INTEGER082 = 5674
  335.     If (STRING119 == "O") INTEGER082 = 6546
  336.     If (STRING119 == "P") INTEGER082 = 7463
  337.     If (STRING119 == "Q") INTEGER082 = 8355
  338.     If (STRING119 == "R") INTEGER082 = 9242
  339.     If (STRING119 == "S") INTEGER082 = 1164
  340.     If (STRING119 == "T") INTEGER082 = 2031
  341.     If (STRING119 == "U") INTEGER082 = 3973
  342.     If (STRING119 == "V") INTEGER082 = 4820
  343.     If (STRING119 == "W") INTEGER082 = 5782
  344.     If (STRING119 == "X") INTEGER082 = 6619
  345.     If (STRING119 == "Y") INTEGER082 = 7591
  346.     If (STRING119 == "Z") INTEGER082 = 8408
  347.     INTEGER079 = S2I(STRING121, INTEGER078) + INTEGER081 + STRING125 + INTEGER082
  348.     INTEGER083 = S2I(STRING121, INTEGER078) + INTEGER081 + STRING126 + INTEGER082
  349.     If (INTEGER080 == INTEGER079) Goto LABEL004
  350.     If (INTEGER080 == INTEGER083) Goto LABEL004
  351.     Goto LABEL017
  352.     :LABEL004
  353.     STRING124 = "Y"
  354.     If (Len(INTEGER081) == 1) STRING115 = "000"
  355.     If (Len(INTEGER081) == 2) STRING115 = "00"
  356.     If (Len(INTEGER081) == 3) STRING115 = "0"
  357.     If (Len(INTEGER081) == 4) STRING115 = ""
  358.     STRING116 = INTEGER081
  359.     STRING117 = STRING115 + STRING116
  360.     If (Len(STRING113) == 30) STRING114 = ""
  361.     If (Len(STRING113) == 29) STRING114 = ""
  362.     If (Len(STRING113) == 28) STRING114 = " "
  363.     If (Len(STRING113) == 27) STRING114 = " "
  364.     If (Len(STRING113) == 26) STRING114 = "  "
  365.     If (Len(STRING113) == 25) STRING114 = "  "
  366.     If (Len(STRING113) == 24) STRING114 = "   "
  367.     If (Len(STRING113) == 23) STRING114 = "   "
  368.     If (Len(STRING113) == 22) STRING114 = "    "
  369.     If (Len(STRING113) == 21) STRING114 = "    "
  370.     If (Len(STRING113) == 20) STRING114 = "     "
  371.     If (Len(STRING113) == 19) STRING114 = "     "
  372.     If (Len(STRING113) == 18) STRING114 = "      "
  373.     If (Len(STRING113) == 17) STRING114 = "      "
  374.     If (Len(STRING113) == 16) STRING114 = "       "
  375.     If (Len(STRING113) == 15) STRING114 = "       "
  376.     If (Len(STRING113) == 14) STRING114 = "        "
  377.     If (Len(STRING113) == 13) STRING114 = "        "
  378.     If (Len(STRING113) == 12) STRING114 = "         "
  379.     If (Len(STRING113) == 11) STRING114 = "         "
  380.     If (Len(STRING113) == 10) STRING114 = "          "
  381.     If (Len(STRING113) == 9) STRING114 = "          "
  382.     If (Len(STRING113) == 8) STRING114 = "           "
  383.     If (Len(STRING113) == 7) STRING114 = "           "
  384.     If (Len(STRING113) == 6) STRING114 = "            "
  385.     If (Len(STRING113) == 5) STRING114 = "            "
  386.     :LABEL005
  387.     STRING001 = "4.0 "
  388.     FOpen 1, STRING118, 0, 0
  389.     FGet 1, STRING113
  390.     FGet 1, INTEGER081
  391.     FGet 1, INTEGER080
  392.     FGet 1, STRING016
  393.     FClose 1
  394.     STRING010 = PPEPath() + "MODE_BC.TBL"
  395.     FOpen 1, STRING010, 0, 0
  396.     FGet 1, STRING046
  397.     FGet 1, STRING009
  398.     FGet 1, STRING041
  399.     FGet 1, INTEGER001
  400.     FGet 1, STRING011
  401.     FGet 1, STRING049
  402.     FGet 1, STRING081
  403.     FGet 1, INTEGER012
  404.     FGet 1, INTEGER045
  405.     FGet 1, STRING011
  406.     FGet 1, STRING050
  407.     FGet 1, STRING082
  408.     FGet 1, INTEGER013
  409.     FGet 1, INTEGER046
  410.     FGet 1, STRING011
  411.     FGet 1, STRING051
  412.     FGet 1, STRING083
  413.     FGet 1, INTEGER014
  414.     FGet 1, INTEGER047
  415.     FGet 1, STRING011
  416.     FGet 1, STRING052
  417.     FGet 1, STRING084
  418.     FGet 1, INTEGER015
  419.     FGet 1, INTEGER048
  420.     FGet 1, STRING011
  421.     FGet 1, STRING053
  422.     FGet 1, STRING085
  423.     FGet 1, INTEGER016
  424.     FGet 1, INTEGER049
  425.     FGet 1, STRING011
  426.     FGet 1, STRING054
  427.     FGet 1, STRING086
  428.     FGet 1, INTEGER017
  429.     FGet 1, INTEGER050
  430.     FGet 1, STRING011
  431.     FGet 1, STRING055
  432.     FGet 1, STRING087
  433.     FGet 1, INTEGER018
  434.     FGet 1, INTEGER051
  435.     FGet 1, STRING011
  436.     FGet 1, STRING056
  437.     FGet 1, STRING088
  438.     FGet 1, INTEGER019
  439.     FGet 1, INTEGER052
  440.     FGet 1, STRING011
  441.     FGet 1, STRING057
  442.     FGet 1, STRING089
  443.     FGet 1, INTEGER020
  444.     FGet 1, INTEGER053
  445.     FGet 1, STRING011
  446.     FGet 1, STRING058
  447.     FGet 1, STRING090
  448.     FGet 1, INTEGER021
  449.     FGet 1, INTEGER054
  450.     FGet 1, STRING011
  451.     FGet 1, STRING059
  452.     FGet 1, STRING091
  453.     FGet 1, INTEGER022
  454.     FGet 1, INTEGER055
  455.     FGet 1, STRING011
  456.     FGet 1, STRING060
  457.     FGet 1, STRING092
  458.     FGet 1, INTEGER023
  459.     FGet 1, INTEGER056
  460.     FGet 1, STRING011
  461.     FGet 1, STRING061
  462.     FGet 1, STRING093
  463.     FGet 1, INTEGER024
  464.     FGet 1, INTEGER057
  465.     FGet 1, STRING011
  466.     FGet 1, STRING062
  467.     FGet 1, STRING094
  468.     FGet 1, INTEGER025
  469.     FGet 1, INTEGER058
  470.     FGet 1, STRING011
  471.     FGet 1, STRING063
  472.     FGet 1, STRING095
  473.     FGet 1, INTEGER026
  474.     FGet 1, INTEGER059
  475.     FGet 1, STRING011
  476.     FGet 1, STRING064
  477.     FGet 1, STRING096
  478.     FGet 1, INTEGER027
  479.     FGet 1, INTEGER060
  480.     FGet 1, STRING011
  481.     FGet 1, STRING065
  482.     FGet 1, STRING097
  483.     FGet 1, INTEGER028
  484.     FGet 1, INTEGER061
  485.     FGet 1, STRING011
  486.     FGet 1, STRING066
  487.     FGet 1, STRING098
  488.     FGet 1, INTEGER029
  489.     FGet 1, INTEGER062
  490.     FGet 1, STRING011
  491.     FGet 1, STRING067
  492.     FGet 1, STRING099
  493.     FGet 1, INTEGER030
  494.     FGet 1, INTEGER063
  495.     FGet 1, STRING011
  496.     FGet 1, STRING068
  497.     FGet 1, STRING100
  498.     FGet 1, INTEGER031
  499.     FGet 1, INTEGER064
  500.     FGet 1, STRING011
  501.     FGet 1, STRING069
  502.     FGet 1, STRING101
  503.     FGet 1, INTEGER032
  504.     FGet 1, INTEGER065
  505.     FGet 1, STRING011
  506.     FGet 1, STRING070
  507.     FGet 1, STRING102
  508.     FGet 1, INTEGER033
  509.     FGet 1, INTEGER066
  510.     FGet 1, STRING011
  511.     FGet 1, STRING071
  512.     FGet 1, STRING103
  513.     FGet 1, INTEGER034
  514.     FGet 1, INTEGER067
  515.     FGet 1, STRING011
  516.     FGet 1, STRING072
  517.     FGet 1, STRING104
  518.     FGet 1, INTEGER035
  519.     FGet 1, INTEGER068
  520.     FGet 1, STRING011
  521.     FGet 1, STRING073
  522.     FGet 1, STRING105
  523.     FGet 1, INTEGER036
  524.     FGet 1, INTEGER069
  525.     FGet 1, STRING011
  526.     FGet 1, STRING074
  527.     FGet 1, STRING106
  528.     FGet 1, INTEGER037
  529.     FGet 1, INTEGER070
  530.     FGet 1, STRING011
  531.     FGet 1, STRING075
  532.     FGet 1, STRING107
  533.     FGet 1, INTEGER038
  534.     FGet 1, INTEGER071
  535.     FGet 1, STRING011
  536.     FGet 1, STRING076
  537.     FGet 1, STRING108
  538.     FGet 1, INTEGER039
  539.     FGet 1, INTEGER072
  540.     FGet 1, STRING011
  541.     FGet 1, STRING077
  542.     FGet 1, STRING109
  543.     FGet 1, INTEGER040
  544.     FGet 1, INTEGER073
  545.     FGet 1, STRING011
  546.     FGet 1, STRING078
  547.     FGet 1, STRING110
  548.     FGet 1, INTEGER041
  549.     FGet 1, INTEGER074
  550.     FGet 1, STRING011
  551.     FGet 1, STRING079
  552.     FGet 1, STRING111
  553.     FGet 1, INTEGER042
  554.     FGet 1, INTEGER075
  555.     FGet 1, STRING011
  556.     FGet 1, STRING080
  557.     FGet 1, STRING112
  558.     FGet 1, INTEGER043
  559.     FGet 1, INTEGER076
  560.     FGet 1, STRING011
  561.     FClose 1
  562.     FOpen 1, STRING009, 0, 0
  563.     FGet 1, STRING011
  564.     FGet 1, STRING002
  565.     FGet 1, STRING011
  566.     FGet 1, STRING007
  567.     FGet 1, STRING011
  568.     FGet 1, STRING008
  569.     FGet 1, STRING011
  570.     FGet 1, STRING003
  571.     FGet 1, STRING011
  572.     FGet 1, STRING012
  573.     FGet 1, STRING011
  574.     FGet 1, STRING004
  575.     FGet 1, STRING011
  576.     FGet 1, STRING005
  577.     FGet 1, STRING011
  578.     FGet 1, STRING006
  579.     FClose 1
  580.     INTEGER002 = ReadLine(PCBDat(), 108)
  581.     INTEGER002 = INTEGER002 + 1
  582.     If (!Exist(PPEPath() + "CNAMES.TXT")) Gosub LABEL015
  583.     STRING013 = ReadLine(PCBDat(), 31)
  584.     DATE001 = FileInf(STRING013, 2)
  585.     TIME001 = FileInf(STRING013, 3)
  586.     STRING013 = PPEPath() + "CNAMES.TXT"
  587.     DATE002 = FileInf(STRING013, 2)
  588.     TIME002 = FileInf(STRING013, 3)
  589.     If ((DATE002 == DATE001) && (TIME002 < TIME001)) Gosub LABEL015
  590.     If (DATE002 < DATE001) Gosub LABEL015
  591.     If (INTEGER080 == INTEGER079) STRING124 = "Y"
  592.     If (INTEGER080 == INTEGER083) STRING124 = "Y"
  593.     If (STRING124 == "N") Then
  594.         STRING048 = "@X0BConfJoin v" + STRING001 + " # " + "@X0F" + STRING128 + "@X0B" + " ■ " + STRING113
  595.     Endif
  596.     If (STRING124 == "Y") Then
  597.         STRING048 = "@X0BConfJoin v" + STRING001 + " #@X0F" + STRING117 + "@X0B ■ " + STRING113
  598.     Endif
  599.     :LABEL006
  600.     INTEGER003 = 0
  601.     INTEGER006 = 0
  602.     INTEGER007 = 0
  603.     STRING029 = ""
  604.     STRING030 = ""
  605.     STRING031 = ""
  606.     STRING018 = "N"
  607.     STRING025 = "N"
  608.     STRING047 = ""
  609.     Cls
  610.     If (Exist(STRING046)) Then
  611.         DispFile STRING046, 4 + 2 + 1
  612.     Else
  613.         PrintLn "@X8CERROR@X0B: Menu Display Missing! Notify SysOp!"
  614.     Endif
  615.     PrintLn STRING048
  616.     STRING047 = ""
  617.     If ((STRING016 == "B") || (STRING016 == "C")) Then
  618.         If (STRING016 == "B") InputStr "@X0BWhich menu @X0F#@X0B to view, @X0FS@X0B)earch, @X0FALL@X0B) Confs", STRING047, 11, 4, "1234567890SsAaLlDdRrWw", Mask_Alpha() + Mask_Num()
  619.         If (STRING016 == "C") InputStr "@X0BWhich menu @X0F#@X0B to view, @X0FS@X0B)earch, @X0FALL@X0B) Confs, @X0FC@X0B)lear Mail-Waiting Flags", STRING047, 11, 4, "1234567890SsAaLlDdRrWwCc", Mask_Alpha() + Mask_Num()
  620.     Else
  621.         InputStr "@X0BWhich Menu Item @X0F#@X0B would you like to view, @X0FS@X0B)earch, @X0FALL@X0B) Confs", STRING047, 11, 2, "1234567890Ss", Mask_Alpha() + Mask_Num()
  622.     Endif
  623.     If (STRING047 == "ALL") STRING027 = "ALL"
  624.     If (STRING047 == "all") STRING027 = "ALL"
  625.     If (STRING047 == "ALL") Goto LABEL008
  626.     If (STRING047 == "all") Goto LABEL008
  627.     If (STRING047 == "C") Goto LABEL025
  628.     If (STRING047 == "c") Goto LABEL025
  629.     If (STRING047 == "DRAW") Goto LABEL018
  630.     If (STRING047 == "draw") Goto LABEL018
  631.     If (STRING047 == "S") Goto LABEL016
  632.     If (STRING047 == "s") Goto LABEL016
  633.     If (STRING047 == "") End
  634.     If (STRING016 == "B") Goto LABEL007
  635.     If (STRING016 == "C") Goto LABEL009
  636.     Goto LABEL006
  637.     :LABEL007
  638.     Select Case (STRING047)
  639.         Case "1"
  640.             INTEGER077 = INTEGER045 + 1
  641.             STRING026 = STRING081
  642.             STRING027 = STRING049
  643.         Case "2"
  644.             INTEGER077 = INTEGER046 + 1
  645.             STRING026 = STRING082
  646.             STRING027 = STRING050
  647.         Case "3"
  648.             INTEGER077 = INTEGER047 + 1
  649.             STRING026 = STRING083
  650.             STRING027 = STRING051
  651.         Case "4"
  652.             INTEGER077 = INTEGER048 + 1
  653.             STRING026 = STRING084
  654.             STRING027 = STRING052
  655.         Case "5"
  656.             INTEGER077 = INTEGER049 + 1
  657.             STRING026 = STRING085
  658.             STRING027 = STRING053
  659.         Case "6"
  660.             INTEGER077 = INTEGER050 + 1
  661.             STRING026 = STRING086
  662.             STRING027 = STRING054
  663.         Case "7"
  664.             INTEGER077 = INTEGER051 + 1
  665.             STRING026 = STRING087
  666.             STRING027 = STRING055
  667.         Case "8"
  668.             INTEGER077 = INTEGER052 + 1
  669.             STRING026 = STRING088
  670.             STRING027 = STRING056
  671.         Case "9"
  672.             INTEGER077 = INTEGER053 + 1
  673.             STRING026 = STRING089
  674.             STRING027 = STRING057
  675.         Case "10"
  676.             INTEGER077 = INTEGER054 + 1
  677.             STRING026 = STRING090
  678.             STRING027 = STRING058
  679.         Case "11"
  680.             INTEGER077 = INTEGER055 + 1
  681.             STRING026 = STRING091
  682.             STRING027 = STRING059
  683.         Case "12"
  684.             INTEGER077 = INTEGER056 + 1
  685.             STRING026 = STRING092
  686.             STRING027 = STRING060
  687.         Case "13"
  688.             INTEGER077 = INTEGER057 + 1
  689.             STRING026 = STRING093
  690.             STRING027 = STRING061
  691.         Case "14"
  692.             INTEGER077 = INTEGER058 + 1
  693.             STRING026 = STRING094
  694.             STRING027 = STRING062
  695.         Case "15"
  696.             INTEGER077 = INTEGER059 + 1
  697.             STRING026 = STRING095
  698.             STRING027 = STRING063
  699.         Case "16"
  700.             INTEGER077 = INTEGER060 + 1
  701.             STRING026 = STRING096
  702.             STRING027 = STRING064
  703.         Case "17"
  704.             INTEGER077 = INTEGER061 + 1
  705.             STRING026 = STRING097
  706.             STRING027 = STRING065
  707.         Case "18"
  708.             INTEGER077 = INTEGER062 + 1
  709.             STRING026 = STRING098
  710.             STRING027 = STRING066
  711.         Case "19"
  712.             INTEGER077 = INTEGER063 + 1
  713.             STRING026 = STRING099
  714.             STRING027 = STRING067
  715.         Case "20"
  716.             INTEGER077 = INTEGER064 + 1
  717.             STRING026 = STRING100
  718.             STRING027 = STRING068
  719.         Case "21"
  720.             INTEGER077 = INTEGER065 + 1
  721.             STRING026 = STRING101
  722.             STRING027 = STRING069
  723.         Case "22"
  724.             INTEGER077 = INTEGER066 + 1
  725.             STRING026 = STRING102
  726.             STRING027 = STRING070
  727.         Case "23"
  728.             INTEGER077 = INTEGER067 + 1
  729.             STRING026 = STRING103
  730.             STRING027 = STRING071
  731.         Case "24"
  732.             INTEGER077 = INTEGER068 + 1
  733.             STRING026 = STRING104
  734.             STRING027 = STRING072
  735.         Case "25"
  736.             INTEGER077 = INTEGER069 + 1
  737.             STRING026 = STRING105
  738.             STRING027 = STRING073
  739.         Case "26"
  740.             INTEGER077 = INTEGER070 + 1
  741.             STRING026 = STRING106
  742.             STRING027 = STRING074
  743.         Case "27"
  744.             INTEGER077 = INTEGER071 + 1
  745.             STRING026 = STRING107
  746.             STRING027 = STRING075
  747.         Case "28"
  748.             INTEGER077 = INTEGER072 + 1
  749.             STRING026 = STRING108
  750.             STRING027 = STRING076
  751.         Case "29"
  752.             INTEGER077 = INTEGER073 + 1
  753.             STRING026 = STRING109
  754.             STRING027 = STRING077
  755.         Case "30"
  756.             INTEGER077 = INTEGER074 + 1
  757.             STRING026 = STRING110
  758.             STRING027 = STRING078
  759.         Case "31"
  760.             INTEGER077 = INTEGER075 + 1
  761.             STRING026 = STRING111
  762.             STRING027 = STRING079
  763.         Case "32"
  764.             INTEGER077 = INTEGER076 + 1
  765.             STRING026 = STRING112
  766.             STRING027 = STRING080
  767.         Case Else
  768.             Goto LABEL006
  769.     End Select
  770.     :LABEL008
  771.     Cls
  772.     INTEGER006 = 0
  773.     INTEGER003 = -1
  774.     FOpen 1, STRING013, 0, 0
  775.     If ((STRING047 == "ALL") || (STRING047 == "all")) Then
  776.         INTEGER077 = INTEGER002
  777.     Endif
  778.     For INTEGER005 = 1 To INTEGER077
  779.         If (INTEGER006 == 45) INTEGER006 = 0
  780.         INTEGER003 = INTEGER003 + 1
  781.         FGet 1, STRING028
  782.         FGet 1, STRING035
  783.         FGet 1, STRING034
  784.         FGet 1, STRING037
  785.         FGet 1, STRING036
  786.         FGet 1, STRING033
  787.         If ((STRING047 == "ALL") || (((STRING047 == "all") && !(STRING028 == STRING041)) && !(STRING028 == ""))) Then
  788.             Gosub LABEL010
  789.             Continue
  790.         Endif
  791.         If (Mid(STRING028, 1, 2) == STRING026) Gosub LABEL010
  792.     Next
  793.     FClose 1
  794.     STRING025 = "Y"
  795.     If (((STRING025 == "Y") && (INTEGER007 == 1)) || ((STRING025 == "Y") && (INTEGER007 == 2))) Then
  796.         Gosub LABEL010
  797.     Else
  798.         If (STRING025 == "Y") Gosub LABEL014
  799.     Endif
  800.     Goto LABEL011
  801.     :LABEL009
  802.     Select Case (STRING047)
  803.         Case "1"
  804.             INTEGER044 = INTEGER012
  805.             INTEGER077 = INTEGER045 + 1
  806.             STRING027 = STRING049
  807.         Case "2"
  808.             INTEGER044 = INTEGER013
  809.             INTEGER077 = INTEGER046 + 1
  810.             STRING027 = STRING050
  811.         Case "3"
  812.             INTEGER044 = INTEGER014
  813.             INTEGER077 = INTEGER047 + 1
  814.             STRING027 = STRING051
  815.         Case "4"
  816.             INTEGER044 = INTEGER015
  817.             INTEGER077 = INTEGER048 + 1
  818.             STRING027 = STRING052
  819.         Case "5"
  820.             INTEGER044 = INTEGER016
  821.             INTEGER077 = INTEGER049 + 1
  822.             STRING027 = STRING053
  823.         Case "6"
  824.             INTEGER044 = INTEGER017
  825.             INTEGER077 = INTEGER050 + 1
  826.             STRING027 = STRING054
  827.         Case "7"
  828.             INTEGER044 = INTEGER018
  829.             INTEGER077 = INTEGER051 + 1
  830.             STRING027 = STRING055
  831.         Case "8"
  832.             INTEGER044 = INTEGER019
  833.             INTEGER077 = INTEGER052 + 1
  834.             STRING027 = STRING056
  835.         Case "9"
  836.             INTEGER044 = INTEGER020
  837.             INTEGER077 = INTEGER053 + 1
  838.             STRING027 = STRING057
  839.         Case "10"
  840.             INTEGER044 = INTEGER021
  841.             INTEGER077 = INTEGER054 + 1
  842.             STRING027 = STRING058
  843.         Case "11"
  844.             INTEGER044 = INTEGER022
  845.             INTEGER077 = INTEGER055 + 1
  846.             STRING027 = STRING059
  847.         Case "12"
  848.             INTEGER044 = INTEGER023
  849.             INTEGER077 = INTEGER056 + 1
  850.             STRING027 = STRING060
  851.         Case "13"
  852.             INTEGER044 = INTEGER024
  853.             INTEGER077 = INTEGER057 + 1
  854.             STRING027 = STRING061
  855.         Case "14"
  856.             INTEGER044 = INTEGER025
  857.             INTEGER077 = INTEGER058 + 1
  858.             STRING027 = STRING062
  859.         Case "15"
  860.             INTEGER044 = INTEGER026
  861.             INTEGER077 = INTEGER059 + 1
  862.             STRING027 = STRING063
  863.         Case "16"
  864.             INTEGER044 = INTEGER027
  865.             INTEGER077 = INTEGER060 + 1
  866.             STRING027 = STRING064
  867.         Case "17"
  868.             INTEGER044 = INTEGER028
  869.             INTEGER077 = INTEGER061 + 1
  870.             STRING027 = STRING065
  871.         Case "18"
  872.             INTEGER044 = INTEGER029
  873.             INTEGER077 = INTEGER062 + 1
  874.             STRING027 = STRING066
  875.         Case "19"
  876.             INTEGER044 = INTEGER030
  877.             INTEGER077 = INTEGER063 + 1
  878.             STRING027 = STRING067
  879.         Case "20"
  880.             INTEGER044 = INTEGER031
  881.             INTEGER077 = INTEGER064 + 1
  882.             STRING027 = STRING068
  883.         Case "21"
  884.             INTEGER044 = INTEGER032
  885.             INTEGER077 = INTEGER065 + 1
  886.             STRING027 = STRING069
  887.         Case "22"
  888.             INTEGER044 = INTEGER033
  889.             INTEGER077 = INTEGER066 + 1
  890.             STRING027 = STRING070
  891.         Case "23"
  892.             INTEGER044 = INTEGER034
  893.             INTEGER077 = INTEGER067 + 1
  894.             STRING027 = STRING071
  895.         Case "24"
  896.             INTEGER044 = INTEGER035
  897.             INTEGER077 = INTEGER068 + 1
  898.             STRING027 = STRING072
  899.         Case "25"
  900.             INTEGER044 = INTEGER036
  901.             INTEGER077 = INTEGER069 + 1
  902.             STRING027 = STRING073
  903.         Case "26"
  904.             INTEGER044 = INTEGER037
  905.             INTEGER077 = INTEGER070 + 1
  906.             STRING027 = STRING074
  907.         Case "27"
  908.             INTEGER044 = INTEGER038
  909.             INTEGER077 = INTEGER071 + 1
  910.             STRING027 = STRING075
  911.         Case "28"
  912.             INTEGER044 = INTEGER039
  913.             INTEGER077 = INTEGER072 + 1
  914.             STRING027 = STRING076
  915.         Case "29"
  916.             INTEGER044 = INTEGER040
  917.             INTEGER077 = INTEGER073 + 1
  918.             STRING027 = STRING077
  919.         Case "30"
  920.             INTEGER044 = INTEGER041
  921.             INTEGER077 = INTEGER074 + 1
  922.             STRING027 = STRING078
  923.         Case "31"
  924.             INTEGER044 = INTEGER042
  925.             INTEGER077 = INTEGER075 + 1
  926.             STRING027 = STRING079
  927.         Case "32"
  928.             INTEGER044 = INTEGER043
  929.             INTEGER077 = INTEGER076 + 1
  930.             STRING027 = STRING080
  931.         Case Else
  932.             Goto LABEL006
  933.     End Select
  934.     Cls
  935.     INTEGER006 = 0
  936.     INTEGER003 = -1
  937.     FOpen 1, STRING013, 0, 0
  938.     If ((STRING047 == "ALL") || (STRING047 == "all")) Then
  939.         INTEGER077 = INTEGER002
  940.     Endif
  941.     For INTEGER005 = 1 To INTEGER077
  942.         If (INTEGER006 == 45) INTEGER006 = 0
  943.         INTEGER003 = INTEGER003 + 1
  944.         FGet 1, STRING028
  945.         FGet 1, STRING035
  946.         FGet 1, STRING034
  947.         FGet 1, STRING037
  948.         FGet 1, STRING036
  949.         FGet 1, STRING033
  950.         If ((STRING047 == "ALL") || (((STRING047 == "all") && !(STRING028 == STRING041)) && !(STRING028 == ""))) Then
  951.             Gosub LABEL010
  952.             Continue
  953.         Endif
  954.         If ((((INTEGER003 >= INTEGER044) && (INTEGER003 <= INTEGER077)) && !(STRING028 == STRING041)) && !(STRING028 == "")) Gosub LABEL010
  955.     Next
  956.     FClose 1
  957.     STRING025 = "Y"
  958.     If (((STRING025 == "Y") && (INTEGER007 == 1)) || ((STRING025 == "Y") && (INTEGER007 == 2))) Then
  959.         Gosub LABEL010
  960.     Else
  961.         If (STRING025 == "Y") Gosub LABEL014
  962.     Endif
  963.     Goto LABEL011
  964.     :LABEL010
  965.     STRING018 = "Y"
  966.     If (INTEGER006 == 0) Then
  967.         Gosub LABEL012
  968.         Gosub LABEL013
  969.     Endif
  970.     STRING019 = "·"
  971.     STRING038 = "·"
  972.     STRING020 = "·"
  973.     STRING039 = "·"
  974.     STRING040 = "·"
  975.     If (STRING034 == "0") STRING019 = "P"
  976.     If (STRING035 == "-1") STRING038 = "E"
  977.     If (!(STRING033 == "")) STRING020 = "F"
  978.     If (!(STRING036 == "")) STRING039 = "B"
  979.     If (!(STRING037 == "")) STRING040 = "D"
  980.     If (STRING025 == "Y") Then
  981.         PrintLn Chr(13), STRING029, STRING030, STRING031
  982.         Gosub LABEL014
  983.         STRING029 = "@X07@POS:2@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  984.         STRING030 = "@X07@POS:28@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  985.         STRING031 = "@X07@POS:54@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  986.         Return
  987.     Endif
  988.     INTEGER006 = INTEGER006 + 1
  989.     INTEGER007 = INTEGER007 + 1
  990.     If (INTEGER007 == 1) INTEGER008 = INTEGER003
  991.     If (INTEGER007 == 2) INTEGER009 = INTEGER003
  992.     If (INTEGER007 == 3) INTEGER010 = INTEGER003
  993.     If (INTEGER007 == 1) STRING030 = String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  994.     If (INTEGER007 == 1) STRING031 = String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  995.     If (INTEGER007 == 2) STRING031 = String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  996.     If (INTEGER007 == 1) Then
  997.         If (Len(INTEGER008) == 1) STRING021 = "   "
  998.         If (Len(INTEGER008) == 2) STRING021 = "  "
  999.         If (Len(INTEGER008) == 3) STRING021 = " "
  1000.         If (Len(INTEGER008) == 4) STRING021 = ""
  1001.         STRING029 = "@X07@POS:2@" + String(STRING007) + "│" + String(STRING006) + "@POS:3@" + String(STRING021) + String(INTEGER008) + "@POS:8@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:14@" + STRING028 + "@POS:27@" + String(STRING008) + "│"
  1002.     Endif
  1003.     If (INTEGER007 == 2) Then
  1004.         If (Len(INTEGER009) == 1) STRING022 = "   "
  1005.         If (Len(INTEGER009) == 2) STRING022 = "  "
  1006.         If (Len(INTEGER009) == 3) STRING022 = " "
  1007.         If (Len(INTEGER009) == 4) STRING022 = ""
  1008.         STRING030 = "@POS:28@" + String(STRING007) + "│" + String(STRING006) + "@POS:29@" + String(STRING022) + String(INTEGER009) + "@POS:34@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:40@" + STRING028 + "@POS:53@" + String(STRING008) + "│"
  1009.     Endif
  1010.     If (INTEGER007 == 3) Then
  1011.         If (Len(INTEGER010) == 1) STRING023 = "   "
  1012.         If (Len(INTEGER010) == 2) STRING023 = "  "
  1013.         If (Len(INTEGER010) == 3) STRING023 = " "
  1014.         If (Len(INTEGER010) == 4) STRING023 = ""
  1015.         STRING031 = "@POS:54@" + String(STRING007) + "│" + String(STRING006) + "@POS:55@" + String(STRING023) + String(INTEGER010) + "@POS:60@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:66@" + STRING028 + "@POS:79@" + String(STRING008) + "│"
  1016.         STRING032 = STRING029 + STRING030 + STRING031
  1017.         PrintLn Chr(13), STRING032
  1018.         INTEGER007 = 0
  1019.     Endif
  1020.     If (INTEGER006 == 45) Then
  1021.         Gosub LABEL014
  1022.         STRING017 = "Y"
  1023.         InputYN " @X0EView next screen (Enter for more)", STRING017, 14
  1024.         If (STRING017 == "N") Goto LABEL011
  1025.         Cls
  1026.     Endif
  1027.     Return
  1028.     :LABEL011
  1029.     FClose 1
  1030.     PrintLn 
  1031.     InputStr " @X0EConference # to join (Enter)=none", STRING044, 11, 5, "0123456789", Mask_Ascii()
  1032.     If (STRING044 == "") Goto LABEL006
  1033.     KbdStuff "J " + STRING044 + Chr(13)
  1034.     End
  1035.     :LABEL012
  1036.     Cls
  1037.     PrintLn " " + String(STRING007) + "┌────────────────────────────────────────────────────────────────────────────" + String(STRING008) + "┐@X07"
  1038.     PrintLn " " + String(STRING007) + "│  " + String(STRING005) + "ConfJoin v", STRING001, "  Scanning for " + String(STRING004) + "", STRING027, "" + String(STRING005) + " conferences.@POS:79@" + String(STRING008) + "│@X07"
  1039.     PrintLn " " + String(STRING007) + "│  " + String(STRING003) + "F = Files     D = Doors     E = Echoed     B = Bulletins     P = Private  " + String(STRING008) + "│@X07"
  1040.     PrintLn " " + String(STRING007) + "└" + String(STRING008) + "────────────────────────────────────────────────────────────────────────────┘@X07"
  1041.     Return
  1042.     :LABEL013
  1043.     PrintLn "@X07 " + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐" + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐" + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐@X07"
  1044.     Return
  1045.     :LABEL014
  1046.     PrintLn "@X07 " + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘" + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘" + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘@X07"
  1047.     Return
  1048.     :LABEL015
  1049.     Cls
  1050.     PrintLn "@X8C> > > @X0BCNAMES has been modified, please wait a sec while we rescan conferences..."
  1051.     PrintLn 
  1052.     STRING014 = ReadLine(PCBDat(), 31)
  1053.     STRING015 = PPEPath() + "CNAMES.TXT"
  1054.     FOpen 1, STRING014, 0, 0
  1055.     FOpen 2, STRING015, 1, 0
  1056.     For INTEGER005 = 1 To INTEGER002
  1057.         FGet 1, STRING028
  1058.         FGet 1, STRING024
  1059.         FGet 1, STRING024
  1060.         FGet 1, STRING024
  1061.         FGet 1, STRING024
  1062.         FGet 1, STRING035
  1063.         FGet 1, STRING024
  1064.         FGet 1, STRING024
  1065.         FGet 1, STRING024
  1066.         FGet 1, STRING024
  1067.         FGet 1, STRING024
  1068.         FGet 1, STRING024
  1069.         FGet 1, STRING024
  1070.         FGet 1, STRING024
  1071.         FGet 1, STRING024
  1072.         FGet 1, STRING024
  1073.         FGet 1, STRING024
  1074.         FGet 1, STRING024
  1075.         FGet 1, STRING024
  1076.         FGet 1, STRING034
  1077.         FGet 1, STRING024
  1078.         FGet 1, STRING037
  1079.         FGet 1, STRING024
  1080.         FGet 1, STRING024
  1081.         FGet 1, STRING036
  1082.         FGet 1, STRING024
  1083.         FGet 1, STRING024
  1084.         FGet 1, STRING024
  1085.         FGet 1, STRING024
  1086.         FGet 1, STRING024
  1087.         FGet 1, STRING033
  1088.         FGet 1, STRING024
  1089.         FGet 1, STRING024
  1090.         FPutLn 2, STRING028
  1091.         FPutLn 2, STRING035
  1092.         FPutLn 2, STRING034
  1093.         FPutLn 2, STRING037
  1094.         FPutLn 2, STRING036
  1095.         FPutLn 2, STRING033
  1096.     Next
  1097.     FClose 1
  1098.     FClose 2
  1099.     Return
  1100.     :LABEL016
  1101.     KbdStuff "J S ^M"
  1102.     End
  1103.     :LABEL017
  1104.     Cls
  1105.     PrintLn 
  1106.     PrintLn "                       " + String(STRING007) + "┌──────────────────────────────" + String(STRING008) + "┐@X07"
  1107.     PrintLn "                       " + String(STRING007) + "│        " + String(STRING012) + "ConfJoin  v", STRING001, "       " + String(STRING008) + "│@X07"
  1108.     PrintLn "                       " + String(STRING007) + "│                              " + String(STRING008) + "│@X07"
  1109.     PrintLn "                       " + String(STRING007) + "│      " + String(STRING003) + "Aborting Operation      " + String(STRING008) + "│@X07"
  1110.     PrintLn "                       " + String(STRING007) + "│                              " + String(STRING008) + "│@X07"
  1111.     PrintLn "                       " + String(STRING007) + "│  " + String(STRING003) + "Invalid Registration Code!  " + String(STRING008) + "│@X07"
  1112.     PrintLn "                       " + String(STRING007) + "└" + String(STRING008) + "──────────────────────────────┘@X07"
  1113.     Beep
  1114.     Delay 182
  1115.     End
  1116.     :LABEL018
  1117.     INTEGER011 = 0
  1118.     If (STRING043 == "Y") Goto LABEL019
  1119.     PrintLn 
  1120.     InputStr "@X0BWhat is your ConfJoin Validation Code", INTEGER011, 11, 6, "1234567890", Mask_Alpha() + Mask_Num()
  1121.     If (INTEGER011 == INTEGER080) STRING043 = "Y"
  1122.     If (INTEGER011 == INTEGER080) Goto LABEL019
  1123.     End
  1124.     :LABEL019
  1125.     STRING047 = "0"
  1126.     PrintLn 
  1127.     InputStr "@X0BWhich Menu Item @X0F#@X0B would you like to draw", STRING047, 11, 2, "1234567890", Mask_Alpha() + Mask_Num()
  1128.     Cls
  1129.     STRING042 = ""
  1130.     If (STRING047 == "0") Goto LABEL006
  1131.     If (STRING047 == "1") Then
  1132.         INTEGER044 = INTEGER012
  1133.         INTEGER077 = INTEGER045
  1134.         STRING027 = STRING049
  1135.         STRING026 = STRING081
  1136.         STRING042 = PPEPath() + "CJ_01"
  1137.     Endif
  1138.     If (STRING047 == "2") Then
  1139.         INTEGER044 = INTEGER013
  1140.         INTEGER077 = INTEGER046
  1141.         STRING027 = STRING050
  1142.         STRING026 = STRING082
  1143.         STRING042 = PPEPath() + "CJ_02"
  1144.     Endif
  1145.     If (STRING047 == "3") Then
  1146.         INTEGER044 = INTEGER014
  1147.         INTEGER077 = INTEGER047
  1148.         STRING027 = STRING051
  1149.         STRING026 = STRING083
  1150.         STRING042 = PPEPath() + "CJ_03"
  1151.     Endif
  1152.     If (STRING047 == "4") Then
  1153.         INTEGER044 = INTEGER015
  1154.         INTEGER077 = INTEGER048
  1155.         STRING027 = STRING052
  1156.         STRING026 = STRING084
  1157.         STRING042 = PPEPath() + "CJ_04"
  1158.     Endif
  1159.     If (STRING047 == "5") Then
  1160.         INTEGER044 = INTEGER016
  1161.         INTEGER077 = INTEGER049
  1162.         STRING027 = STRING053
  1163.         STRING026 = STRING085
  1164.         STRING042 = PPEPath() + "CJ_05"
  1165.     Endif
  1166.     If (STRING047 == "6") Then
  1167.         INTEGER044 = INTEGER017
  1168.         INTEGER077 = INTEGER050
  1169.         STRING027 = STRING054
  1170.         STRING026 = STRING086
  1171.         STRING042 = PPEPath() + "CJ_06"
  1172.     Endif
  1173.     If (STRING047 == "7") Then
  1174.         INTEGER044 = INTEGER018
  1175.         INTEGER077 = INTEGER051
  1176.         STRING027 = STRING055
  1177.         STRING026 = STRING087
  1178.         STRING042 = PPEPath() + "CJ_07"
  1179.     Endif
  1180.     If (STRING047 == "8") Then
  1181.         INTEGER044 = INTEGER019
  1182.         INTEGER077 = INTEGER052
  1183.         STRING027 = STRING056
  1184.         STRING026 = STRING088
  1185.         STRING042 = PPEPath() + "CJ_08"
  1186.     Endif
  1187.     If (STRING047 == "9") Then
  1188.         INTEGER044 = INTEGER020
  1189.         INTEGER077 = INTEGER053
  1190.         STRING027 = STRING057
  1191.         STRING026 = STRING089
  1192.         STRING042 = PPEPath() + "CJ_09"
  1193.     Endif
  1194.     If (STRING047 == "10") Then
  1195.         INTEGER044 = INTEGER021
  1196.         INTEGER077 = INTEGER054
  1197.         STRING027 = STRING058
  1198.         STRING026 = STRING090
  1199.         STRING042 = PPEPath() + "CJ_10"
  1200.     Endif
  1201.     If (STRING047 == "11") Then
  1202.         INTEGER044 = INTEGER022
  1203.         INTEGER077 = INTEGER055
  1204.         STRING027 = STRING059
  1205.         STRING026 = STRING091
  1206.         STRING042 = PPEPath() + "CJ_11"
  1207.     Endif
  1208.     If (STRING047 == "12") Then
  1209.         INTEGER044 = INTEGER023
  1210.         INTEGER077 = INTEGER056
  1211.         STRING027 = STRING060
  1212.         STRING026 = STRING092
  1213.         STRING042 = PPEPath() + "CJ_12"
  1214.     Endif
  1215.     If (STRING047 == "13") Then
  1216.         INTEGER044 = INTEGER024
  1217.         INTEGER077 = INTEGER057
  1218.         STRING027 = STRING061
  1219.         STRING026 = STRING093
  1220.         STRING042 = PPEPath() + "CJ_13"
  1221.     Endif
  1222.     If (STRING047 == "14") Then
  1223.         INTEGER044 = INTEGER025
  1224.         INTEGER077 = INTEGER058
  1225.         STRING027 = STRING062
  1226.         STRING026 = STRING094
  1227.         STRING042 = PPEPath() + "CJ_14"
  1228.     Endif
  1229.     If (STRING047 == "15") Then
  1230.         INTEGER044 = INTEGER026
  1231.         INTEGER077 = INTEGER059
  1232.         STRING027 = STRING063
  1233.         STRING026 = STRING095
  1234.         STRING042 = PPEPath() + "CJ_15"
  1235.     Endif
  1236.     If (STRING047 == "16") Then
  1237.         INTEGER044 = INTEGER027
  1238.         INTEGER077 = INTEGER060
  1239.         STRING027 = STRING064
  1240.         STRING026 = STRING096
  1241.         STRING042 = PPEPath() + "CJ_16"
  1242.     Endif
  1243.     If (STRING047 == "17") Then
  1244.         INTEGER044 = INTEGER028
  1245.         INTEGER077 = INTEGER061
  1246.         STRING027 = STRING065
  1247.         STRING026 = STRING097
  1248.         STRING042 = PPEPath() + "CJ_17"
  1249.     Endif
  1250.     If (STRING047 == "18") Then
  1251.         INTEGER044 = INTEGER029
  1252.         INTEGER077 = INTEGER062
  1253.         STRING027 = STRING066
  1254.         STRING026 = STRING098
  1255.         STRING042 = PPEPath() + "CJ_18"
  1256.     Endif
  1257.     If (STRING047 == "19") Then
  1258.         INTEGER044 = INTEGER030
  1259.         INTEGER077 = INTEGER063
  1260.         STRING027 = STRING067
  1261.         STRING026 = STRING099
  1262.         STRING042 = PPEPath() + "CJ_19"
  1263.     Endif
  1264.     If (STRING047 == "20") Then
  1265.         INTEGER044 = INTEGER031
  1266.         INTEGER077 = INTEGER064
  1267.         STRING027 = STRING068
  1268.         STRING026 = STRING100
  1269.         STRING042 = PPEPath() + "CJ_20"
  1270.     Endif
  1271.     If (STRING047 == "21") Then
  1272.         INTEGER044 = INTEGER032
  1273.         INTEGER077 = INTEGER065
  1274.         STRING027 = STRING069
  1275.         STRING026 = STRING101
  1276.         STRING042 = PPEPath() + "CJ_21"
  1277.     Endif
  1278.     If (STRING047 == "22") Then
  1279.         INTEGER044 = INTEGER033
  1280.         INTEGER077 = INTEGER066
  1281.         STRING027 = STRING070
  1282.         STRING026 = STRING102
  1283.         STRING042 = PPEPath() + "CJ_22"
  1284.     Endif
  1285.     If (STRING047 == "23") Then
  1286.         INTEGER044 = INTEGER034
  1287.         INTEGER077 = INTEGER067
  1288.         STRING027 = STRING071
  1289.         STRING026 = STRING103
  1290.         STRING042 = PPEPath() + "CJ_23"
  1291.     Endif
  1292.     If (STRING047 == "24") Then
  1293.         INTEGER044 = INTEGER035
  1294.         INTEGER077 = INTEGER068
  1295.         STRING027 = STRING072
  1296.         STRING026 = STRING104
  1297.         STRING042 = PPEPath() + "CJ_24"
  1298.     Endif
  1299.     If (STRING047 == "25") Then
  1300.         INTEGER044 = INTEGER036
  1301.         INTEGER077 = INTEGER069
  1302.         STRING027 = STRING073
  1303.         STRING026 = STRING105
  1304.         STRING042 = PPEPath() + "CJ_25"
  1305.     Endif
  1306.     If (STRING047 == "26") Then
  1307.         INTEGER044 = INTEGER037
  1308.         INTEGER077 = INTEGER070
  1309.         STRING027 = STRING074
  1310.         STRING026 = STRING106
  1311.         STRING042 = PPEPath() + "CJ_26"
  1312.     Endif
  1313.     If (STRING047 == "27") Then
  1314.         INTEGER044 = INTEGER038
  1315.         INTEGER077 = INTEGER071
  1316.         STRING027 = STRING075
  1317.         STRING026 = STRING107
  1318.         STRING042 = PPEPath() + "CJ_27"
  1319.     Endif
  1320.     If (STRING047 == "28") Then
  1321.         INTEGER044 = INTEGER039
  1322.         INTEGER077 = INTEGER072
  1323.         STRING027 = STRING076
  1324.         STRING026 = STRING108
  1325.         STRING042 = PPEPath() + "CJ_28"
  1326.     Endif
  1327.     If (STRING047 == "29") Then
  1328.         INTEGER044 = INTEGER040
  1329.         INTEGER077 = INTEGER073
  1330.         STRING027 = STRING077
  1331.         STRING026 = STRING109
  1332.         STRING042 = PPEPath() + "CJ_29"
  1333.     Endif
  1334.     If (STRING047 == "30") Then
  1335.         INTEGER044 = INTEGER041
  1336.         INTEGER077 = INTEGER074
  1337.         STRING027 = STRING078
  1338.         STRING026 = STRING110
  1339.         STRING042 = PPEPath() + "CJ_30"
  1340.     Endif
  1341.     If (STRING047 == "31") Then
  1342.         INTEGER044 = INTEGER042
  1343.         INTEGER077 = INTEGER075
  1344.         STRING027 = STRING079
  1345.         STRING026 = STRING111
  1346.         STRING042 = PPEPath() + "CJ_31"
  1347.     Endif
  1348.     If (STRING047 == "32") Then
  1349.         INTEGER044 = INTEGER043
  1350.         INTEGER077 = INTEGER076
  1351.         STRING027 = STRING080
  1352.         STRING026 = STRING112
  1353.         STRING042 = PPEPath() + "CJ_32"
  1354.     Endif
  1355.     If (Exist(STRING042)) Delete STRING042
  1356.     Gosub LABEL021
  1357.     INTEGER006 = 0
  1358.     INTEGER003 = -1
  1359.     FOpen 1, STRING013, 0, 0
  1360.     For INTEGER005 = 1 To INTEGER002
  1361.         If (INTEGER006 == 45) INTEGER006 = 0
  1362.         INTEGER003 = INTEGER003 + 1
  1363.         FGet 1, STRING028
  1364.         FGet 1, STRING035
  1365.         FGet 1, STRING034
  1366.         FGet 1, STRING037
  1367.         FGet 1, STRING036
  1368.         FGet 1, STRING033
  1369.         If ((STRING016 == "B") && (Mid(STRING028, 1, 2) == STRING026)) Gosub LABEL020
  1370.         If ((((STRING016 == "C") && !(STRING028 == STRING041)) && !(STRING028 == "")) && ((INTEGER003 >= INTEGER044) && (INTEGER003 <= INTEGER077))) Gosub LABEL020
  1371.     Next
  1372.     FClose 1
  1373.     STRING025 = "Y"
  1374.     If (((INTEGER007 == 0) || (INTEGER007 == 1)) || (INTEGER007 == 2)) Then
  1375.         Gosub LABEL020
  1376.     Else
  1377.         Gosub LABEL023
  1378.     Endif
  1379.     Goto LABEL024
  1380.     :LABEL020
  1381.     FAppend 2, STRING042, 1, 0
  1382.     STRING018 = "Y"
  1383.     If (INTEGER006 == 0) Then
  1384.         Gosub LABEL021
  1385.         Gosub LABEL022
  1386.     Endif
  1387.     STRING019 = "·"
  1388.     STRING038 = "·"
  1389.     STRING020 = "·"
  1390.     STRING039 = "·"
  1391.     STRING040 = "·"
  1392.     If (STRING034 == "0") STRING019 = "P"
  1393.     If (STRING035 == "-1") STRING038 = "E"
  1394.     If (!(STRING033 == "")) STRING020 = "F"
  1395.     If (!(STRING036 == "")) STRING039 = "B"
  1396.     If (!(STRING037 == "")) STRING040 = "D"
  1397.     If (STRING025 == "Y") Then
  1398.         If (!(INTEGER007 == 0)) FPutLn 2, STRING029, STRING030, STRING031
  1399.         Gosub LABEL023
  1400.         STRING029 = "@X07@POS:2@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1401.         STRING030 = "@X07@POS:28@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1402.         STRING031 = "@X07@POS:54@" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1403.         FClose 2
  1404.         Return
  1405.     Endif
  1406.     INTEGER006 = INTEGER006 + 1
  1407.     INTEGER007 = INTEGER007 + 1
  1408.     If (INTEGER007 == 1) INTEGER008 = INTEGER003
  1409.     If (INTEGER007 == 2) INTEGER009 = INTEGER003
  1410.     If (INTEGER007 == 3) INTEGER010 = INTEGER003
  1411.     If (INTEGER007 == 1) STRING030 = "" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1412.     If (INTEGER007 == 1) STRING031 = "" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1413.     If (INTEGER007 == 2) STRING031 = "" + String(STRING007) + "│                        " + String(STRING008) + "│@X07"
  1414.     If ((INTEGER007 == 1) && !(STRING025 == "Y")) Then
  1415.         If (Len(INTEGER008) == 1) STRING021 = "   "
  1416.         If (Len(INTEGER008) == 2) STRING021 = "  "
  1417.         If (Len(INTEGER008) == 3) STRING021 = " "
  1418.         If (Len(INTEGER008) == 4) STRING021 = ""
  1419.         STRING029 = "@X07@POS:2@" + String(STRING007) + "│" + String(STRING008) + "@POS:3@" + String(STRING021) + String(INTEGER008) + "@POS:8@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:14@" + STRING028 + "@POS:27@" + String(STRING008) + "│"
  1420.     Endif
  1421.     If ((INTEGER007 == 2) && !(STRING025 == "Y")) Then
  1422.         If (Len(INTEGER009) == 1) STRING022 = "   "
  1423.         If (Len(INTEGER009) == 2) STRING022 = "  "
  1424.         If (Len(INTEGER009) == 3) STRING022 = " "
  1425.         If (Len(INTEGER009) == 4) STRING022 = ""
  1426.         STRING030 = "@POS:28@" + String(STRING007) + "│" + String(STRING008) + "@POS:29@" + String(STRING022) + String(INTEGER009) + "@POS:34@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:40@" + STRING028 + "@POS:53@" + String(STRING008) + "│"
  1427.     Endif
  1428.     If ((INTEGER007 == 3) && !(STRING025 == "Y")) Then
  1429.         If (Len(INTEGER010) == 1) STRING023 = "   "
  1430.         If (Len(INTEGER010) == 2) STRING023 = "  "
  1431.         If (Len(INTEGER010) == 3) STRING023 = " "
  1432.         If (Len(INTEGER010) == 4) STRING023 = ""
  1433.         STRING031 = "@POS:54@" + String(STRING007) + "│" + String(STRING008) + "@POS:55@" + String(STRING023) + String(INTEGER010) + "@POS:60@" + String(STRING012) + String(STRING020) + String(STRING040) + String(STRING038) + String(STRING039) + String(STRING019) + String(STRING005) + "@POS:66@" + STRING028 + "@POS:79@" + String(STRING008) + "│"
  1434.         STRING032 = STRING029 + STRING030 + STRING031
  1435.         FPutLn 2, STRING032
  1436.         INTEGER007 = 0
  1437.     Endif
  1438.     If (INTEGER006 == 45) Gosub LABEL023
  1439.     FClose 2
  1440.     Return
  1441.     :LABEL021
  1442.     FPutLn 2, "@CLS@ " + String(STRING007) + "┌────────────────────────────────────────────────────────────────────────────" + String(STRING008) + "┐@X07"
  1443.     FPutLn 2, " " + String(STRING007) + "│  " + String(STRING005) + "ConfJoin v", STRING001, "  Display of " + String(STRING004) + "", STRING027, "" + String(STRING005) + " conferences.@POS:79@" + String(STRING008) + "│@X07"
  1444.     FPutLn 2, " " + String(STRING007) + "│  " + String(STRING003) + "F = Files     D = Doors     E = Echoed     B = Bulletins     P = Private  " + String(STRING008) + "│@X07"
  1445.     FPutLn 2, " " + String(STRING007) + "└" + String(STRING008) + "────────────────────────────────────────────────────────────────────────────┘@X07"
  1446.     Return
  1447.     :LABEL022
  1448.     FPutLn 2, "@X07 " + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐" + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐" + String(STRING007) + "┌────────────────────────" + String(STRING008) + "┐@X07"
  1449.     Return
  1450.     :LABEL023
  1451.     FPutLn 2, "@X07 " + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘" + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘" + String(STRING007) + "└" + String(STRING008) + "────────────────────────┘@X07"
  1452.     If (STRING025 == "Y") Then
  1453.         Goto LABEL024
  1454.     Else
  1455.         FPutLn 2, "@MORE@"
  1456.         Return
  1457.     Endif
  1458.     :LABEL024
  1459.     FClose 2
  1460.     Goto LABEL006
  1461.     :LABEL025
  1462.     GetUser
  1463.     STRING047 = ""
  1464.     PrintLn 
  1465.     InputStr "@X0BWhich network/group @X0F#@X0B to reset, @X0FALL@X0B) Confs", STRING047, 11, 3, "1234567890SsAaLl", Mask_Alpha() + Mask_Num()
  1466.     If ((STRING047 == "ALL") || (STRING047 == "all")) Goto LABEL028
  1467.     Select Case (STRING047)
  1468.         Case "1"
  1469.             INTEGER044 = INTEGER012
  1470.             INTEGER077 = INTEGER045
  1471.             STRING027 = STRING049
  1472.         Case "2"
  1473.             INTEGER044 = INTEGER013
  1474.             INTEGER077 = INTEGER046
  1475.             STRING027 = STRING050
  1476.         Case "3"
  1477.             INTEGER044 = INTEGER014
  1478.             INTEGER077 = INTEGER047
  1479.             STRING027 = STRING051
  1480.         Case "4"
  1481.             INTEGER044 = INTEGER015
  1482.             INTEGER077 = INTEGER048
  1483.             STRING027 = STRING052
  1484.         Case "5"
  1485.             INTEGER044 = INTEGER016
  1486.             INTEGER077 = INTEGER049
  1487.             STRING027 = STRING053
  1488.         Case "6"
  1489.             INTEGER044 = INTEGER017
  1490.             INTEGER077 = INTEGER050
  1491.             STRING027 = STRING054
  1492.         Case "7"
  1493.             INTEGER044 = INTEGER018
  1494.             INTEGER077 = INTEGER051
  1495.             STRING027 = STRING055
  1496.         Case "8"
  1497.             INTEGER044 = INTEGER019
  1498.             INTEGER077 = INTEGER052
  1499.             STRING027 = STRING056
  1500.         Case "9"
  1501.             INTEGER044 = INTEGER020
  1502.             INTEGER077 = INTEGER053
  1503.             STRING027 = STRING057
  1504.         Case "10"
  1505.             INTEGER044 = INTEGER021
  1506.             INTEGER077 = INTEGER054
  1507.             STRING027 = STRING058
  1508.         Case "11"
  1509.             INTEGER044 = INTEGER022
  1510.             INTEGER077 = INTEGER055
  1511.             STRING027 = STRING059
  1512.         Case "12"
  1513.             INTEGER044 = INTEGER023
  1514.             INTEGER077 = INTEGER056
  1515.             STRING027 = STRING060
  1516.         Case "13"
  1517.             INTEGER044 = INTEGER024
  1518.             INTEGER077 = INTEGER057
  1519.             STRING027 = STRING061
  1520.         Case "14"
  1521.             INTEGER044 = INTEGER025
  1522.             INTEGER077 = INTEGER058
  1523.             STRING027 = STRING062
  1524.         Case "15"
  1525.             INTEGER044 = INTEGER026
  1526.             INTEGER077 = INTEGER059
  1527.             STRING027 = STRING063
  1528.         Case "16"
  1529.             INTEGER044 = INTEGER027
  1530.             INTEGER077 = INTEGER060
  1531.             STRING027 = STRING064
  1532.         Case "17"
  1533.             INTEGER044 = INTEGER028
  1534.             INTEGER077 = INTEGER061
  1535.             STRING027 = STRING065
  1536.         Case "18"
  1537.             INTEGER044 = INTEGER029
  1538.             INTEGER077 = INTEGER062
  1539.             STRING027 = STRING066
  1540.         Case "19"
  1541.             INTEGER044 = INTEGER030
  1542.             INTEGER077 = INTEGER063
  1543.             STRING027 = STRING067
  1544.         Case "20"
  1545.             INTEGER044 = INTEGER031
  1546.             INTEGER077 = INTEGER064
  1547.             STRING027 = STRING068
  1548.         Case "21"
  1549.             INTEGER044 = INTEGER032
  1550.             INTEGER077 = INTEGER065
  1551.             STRING027 = STRING069
  1552.         Case "22"
  1553.             INTEGER044 = INTEGER033
  1554.             INTEGER077 = INTEGER066
  1555.             STRING027 = STRING070
  1556.         Case "23"
  1557.             INTEGER044 = INTEGER034
  1558.             INTEGER077 = INTEGER067
  1559.             STRING027 = STRING071
  1560.         Case "24"
  1561.             INTEGER044 = INTEGER035
  1562.             INTEGER077 = INTEGER068
  1563.             STRING027 = STRING072
  1564.         Case "25"
  1565.             INTEGER044 = INTEGER036
  1566.             INTEGER077 = INTEGER069
  1567.             STRING027 = STRING073
  1568.         Case "26"
  1569.             INTEGER044 = INTEGER037
  1570.             INTEGER077 = INTEGER070
  1571.             STRING027 = STRING074
  1572.         Case "27"
  1573.             INTEGER044 = INTEGER038
  1574.             INTEGER077 = INTEGER071
  1575.             STRING027 = STRING075
  1576.         Case "28"
  1577.             INTEGER044 = INTEGER039
  1578.             INTEGER077 = INTEGER072
  1579.             STRING027 = STRING076
  1580.         Case "29"
  1581.             INTEGER044 = INTEGER040
  1582.             INTEGER077 = INTEGER073
  1583.             STRING027 = STRING077
  1584.         Case "30"
  1585.             INTEGER044 = INTEGER041
  1586.             INTEGER077 = INTEGER074
  1587.             STRING027 = STRING078
  1588.         Case "31"
  1589.             INTEGER044 = INTEGER042
  1590.             INTEGER077 = INTEGER075
  1591.             STRING027 = STRING079
  1592.         Case "32"
  1593.             INTEGER044 = INTEGER043
  1594.             INTEGER077 = INTEGER076
  1595.             STRING027 = STRING080
  1596.     End Select
  1597.     :LABEL026
  1598.     INTEGER004 = INTEGER044
  1599.     Cls
  1600.     PrintLn "@X07Network: @X0F", STRING027
  1601.     If (AnsiOn()) Then
  1602.         PrintLn "@X0BClearing mail-waiting flag in Conference: @X0E"
  1603.     Else
  1604.         PrintLn "@X0BClearing mail-waiting flags"
  1605.     Endif
  1606.     :LABEL027
  1607.     If (INTEGER004 > INTEGER077) Goto LABEL030
  1608.     If (ConfMW(INTEGER004)) ConfUnflag INTEGER004, 16
  1609.     If (AnsiOn()) Then
  1610.         AnsiPos 43, 2
  1611.         Print String(INTEGER004)
  1612.     Endif
  1613.     INTEGER004 = INTEGER004 + 1
  1614.     Goto LABEL027
  1615.     :LABEL028
  1616.     STRING027 = "All Conferences"
  1617.     INTEGER004 = 0
  1618.     INTEGER002 = ReadLine(PCBDat(), 108)
  1619.     Cls
  1620.     PrintLn "@X07Network: @X0F", STRING027
  1621.     If (AnsiOn()) Then
  1622.         PrintLn "@X0BClearing mail-waiting flag in Conference: @X0E"
  1623.     Else
  1624.         PrintLn "@X0BClearing mail-waiting flags"
  1625.     Endif
  1626.     :LABEL029
  1627.     If (INTEGER004 > INTEGER002) Goto LABEL030
  1628.     If (ConfMW(INTEGER004)) ConfUnflag INTEGER004, 16
  1629.     If (AnsiOn()) Then
  1630.         AnsiPos 43, 2
  1631.         Print String(INTEGER004)
  1632.     Endif
  1633.     INTEGER004 = INTEGER004 + 1
  1634.     Goto LABEL029
  1635.     :LABEL030
  1636.     PutUser
  1637.     PrintLn 
  1638.     PrintLn 
  1639.     More
  1640.     Goto LABEL006
  1641.  
  1642. ;------------------------------------------------------------------------------
  1643. ;
  1644. ; Usage report (before postprocessing)
  1645. ;
  1646. ; ■ Statements used :
  1647. ;
  1648. ;    7       End
  1649. ;    10      Cls
  1650. ;    1       More
  1651. ;    313     Goto 
  1652. ;    706     Let 
  1653. ;    2       Print 
  1654. ;    33      PrintLn 
  1655. ;    353     If 
  1656. ;    2       ConfUnflag 
  1657. ;    1       DispFile 
  1658. ;    9       FOpen 
  1659. ;    1       FAppend 
  1660. ;    13      FClose 
  1661. ;    239     FGet 
  1662. ;    15      FPutLn 
  1663. ;    1       GetUser
  1664. ;    1       PutUser
  1665. ;    1       Delete 
  1666. ;    7       InputStr 
  1667. ;    1       InputYN 
  1668. ;    24      Gosub 
  1669. ;    11      Return
  1670. ;    1       Delay 
  1671. ;    1       Tokenize 
  1672. ;    2       GetToken 
  1673. ;    1       Beep
  1674. ;    3       KbdStuff 
  1675. ;    2       AnsiPos 
  1676. ;
  1677. ;
  1678. ; ■ Functions used :
  1679. ;
  1680. ;    3       -
  1681. ;    452     +
  1682. ;    363     ==
  1683. ;    6       <
  1684. ;    6       <=
  1685. ;    2       >
  1686. ;    10      >=
  1687. ;    182     !
  1688. ;    28      &&
  1689. ;    16      ||
  1690. ;    54      Len(
  1691. ;    2       Mid()
  1692. ;    2       Left()
  1693. ;    5       Chr()
  1694. ;    1       Strip()
  1695. ;    163     String()
  1696. ;    6       Mask_Alpha()
  1697. ;    6       Mask_Num()
  1698. ;    1       Mask_Ascii()
  1699. ;    4       PCBDat()
  1700. ;    37      PPEPath()
  1701. ;    4       ReadLine()
  1702. ;    4       Exist()
  1703. ;    2       S2I()
  1704. ;    1       TokenStr()
  1705. ;    4       AnsiOn()
  1706. ;    4       FileInf()
  1707. ;    17      PPEName()
  1708. ;    2       ConfMW()
  1709. ;
  1710. ;------------------------------------------------------------------------------
  1711. ;
  1712. ; Analysis flags : FWd
  1713. ;
  1714. ; F - Change conference flags status ■ 2
  1715. ;     This may be normal for a SELECT replacement but it may also be
  1716. ;     a way to get access to conferences a user is not allowed to.
  1717. ;     ■ Search for : CONFFLAG, CONFUNFLAG
  1718. ;
  1719. ; W - Write user ■ 5
  1720. ;     Program writes a user record. Although this may be normal for a
  1721. ;     User Editor, it may also be a way to modify an account level.
  1722. ;     ■ Search for : PUTUSER
  1723. ;
  1724. ; d - Access PCBOARD.DAT ■ 2
  1725. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  1726. ;     for many PPE so they can find various informations on the system
  1727. ;     (system paths, max number of lines in messages, ...) but it may also
  1728. ;     be a way to gather vital informations.
  1729. ;     ■ Search for : PCBDAT()
  1730. ;
  1731. ;------------------------------------------------------------------------------
  1732. ;
  1733. ; Postprocessing report
  1734. ;
  1735. ;    4       For/Next
  1736. ;    0       While/EndWhile
  1737. ;    62      If/Then or If/Then/Else
  1738. ;    3       Select Case
  1739. ;
  1740. ;------------------------------------------------------------------------------
  1741. ;                 AEGiS Corp - Break the routines, code against the machines!
  1742. ;------------------------------------------------------------------------------
  1743.